0 PRINT "[147]IDEAL BODY MASS" :PRINT
1 PRINT "DO YOU WANT INFORMATION REGARDING THIS  PROGRAM (Y/N)? ":INPUTFF$
2 IF FF$ = "N" THEN  GOTO 47
3 PRINT :PRINT "THIS PROGRAM TELLS YOU WHAT YOUR MASS"
4 PRINT "SHOULD BE BASED ON DATA ADAPTED FROM THE"
5 PRINT "BOOK (MASSES IN THIS BOOK WERE SUB-"
6 PRINT "TRACTED BY 3 TO GIVE MASSES IN BED"
7 PRINT "CLOTHING, WHICH WERE USED IN THIS"
8 PRINT "PROGRAM), 'NORMAL & THERAPEUTIC NUTRI-
9 [153] "TION', (13TH EDITION), BY C.H.ROBINSON,"
10 [153] "1972, P.848 (MACMILLAN). HEIGHT LIMIT-"
11 [153] "ATIONS ARE, FOR WOMEN: 5-0 TO 5-10;"
12 [153] "FOR MEN: 5-4 TO 6-3 (NO SHOES). IDEAL"
13 [153] "MASSES GIVEN ARE FOR BED CLOTHING AND"
14 [153] "ARE FOR MEN AND WOMEN OF AGES
15 PRINT "25 AND OVER (FOR GIRLS 18-25, SUBTRACT"
16 PRINT "1 POUND FOR EACH YEAR UNDER 25)."
17 PRINT : PRINT : INPUT "PRESS 'ANY LETTER, THEN RETURN' TO CONTINUE!";A$
18 PRINT "IN ADDITION TO IDEAL MASSES, THIS PROGRAM"
19 PRINT "ESTIMATES OBESITY, BODY FAT, BODY SURFACE"
20 PRINT "AREA, AND TOTAL BODY WATER. THESE ARE"
21 PRINT "APPLICABLE TO THOSE OVER THE AGE OF 16."
22 PRINT "GENERALLY, THE % TOTAL BODY WATER
23 [153] "IS LOWER IN FEMALES THAN IN MALES.  FURTHER, THE % OF WATER IN LEAN"
24 [153] "PERSONS IS HIGHER THAN IN OBESE PERSONS. ABOUT"
25 [153] "55-60% OF THE BODY MASS IS WATER."
26 [153] "A DEVIATION OF NOT MORE THAN 10% ABOVE"
27 [153] "OR BELOW THE DESIRABLE MASS FOR AN"
28 [153] "INDIVIDUAL IS NOT CONSIDERED SIGNIFI-"
29 [153] "CANT. THE TERM 'OVERWEIGHT' IS GENERAL-"
30 [153] "LY APPLIED TO PERSONS WHO ARE 10-20% ABOVE THE DESIRABLE MASS."
31 [153]"'OBESITY' IS APPLIED TO PERSONS WHO ARE ABOUT 20% OR MORE OVERWEIGHT."
32 [153] : [153] : [133] "PRESS 'ANY LETTER, THEN RETURN' TO CONTINUE!";A$
33 [153] "IN THIS PROGRAM, OBESITY IS DETERMINED"
34 [153] "BY A CRITICAL OBESITY INDEX BASED UPON"
35 [153] "'QUETELET'S INDEX' (QI). THIS CRITICAL"
36 [153] "INDEX IS REACHED WHEN THE PERSON'S"
37 [153] "MASS IS ABOUT 18% ABOVE THE MAXIMUM"
38 [153] "IDEAL MASS.  QI IS ALSO USED TO ESTIMATE BODY FAT (BF).  THE BF"
39 [153]"VIA QI IS IN GOOD AGREEMENT WITH THE VALUE FROM"
40 [153] "TOTAL BODY WATER USING: %BF=100-(137*MASS WATER/BODY MASS)."
41 [153] : [153]:[153]"MORE REFERENCES:  HUME & WEYERS, "
42 [153]"J.CLIN. PATH.,VOL.24,PP.234-238 (1971); JAMES,"
43 [153] "(A DHSS/MRC REPORT) HER MAJESTY'S"
44 [153] "STATIONERY OFFICE, LONDON, 1976 (ISBN 0 11 450034 7)."
45 [153] "REMARKS ARE TO BE FOUND IN THE PROGRAM LISTING."
46 [153] : [153] : [133] "PRESS 'ANY LETTER, THEN RETURN' TO CONTINUE!";A$
47 [153] : [153]
48 [134] W$(30,5):[143] HEIGHT & MASSES FOR SMALL, MEDIUM, & LARGE BODY FRAMES
49 [129] J [178] 1 [164] 30
50 [129] K [178] 1 [164] 4
51 [135] W$(J,K)
60 [139] W$(J,1) [178] "ZERO" [167] J [178] J [171] 1: [137] 80
70 [130] K,J
80 [133] "LIST YOUR SEX (FEMALE=1; MALE=2) ";S
81 [153] "WHAT IS YOUR HEIGHT TO NEAREST INCH (E.G. 5-10) (NO SHOES) ":[133]H$
82 [153] "WHAT IS YOUR BODY FRAME SIZE? (SMALL=1; MEDIUM=2; LARGE=3) ":[133]F
83 [153] "WHAT IS YOUR MASS (IN POUNDS WITH BED CLOTHING)? ":[133]WT
85 PW [178] WT
90 [145] S [137] 91,195
91 [153] : [153] "--------------------------------------"
92 TV [178]  [197] ( [202] (H$,1,1)) [172] 12 [170]  [197] ( [202] (H$,3))
93 [139] F[179][178]1 [175] TV[179]60 [167] [153]:[153]"BECAUSE YOUR FRAME IS 'SMALL' AND YOUR";
94 [139] F[179][178]1 [175] TV[179]60 [167] [153]"HEIGHT IS LESS THAN 5-0, THIS PROGRAM CAN";
95 [139] F[179][178]1 [175] TV[179]60 [167] [153]"OFFER YOU NO INFORMATION!":[137] 180
96 [139] F[179][178]1 [175] TV[177]70 [167] [153]: [153]"BECAUSE YOUR FRAME IS 'SMALL' AND YOUR";
97 [139] F[179][178]1 [175] TV[177]70 [167] [153]"HEIGHT IS MORE THAN 5-10, THIS PROGRAM CAN";
98 [139] F[179][178]1 [175] TV[177]70 [167] [153]"OFFER YOU NO INFORMATION!": [137] 180
99 [139] TV[179]60 [176] TV[177]70 [167] [153]: [153] "BECAUSE OF HEIGHT LIMITATIONS, THIS";
100 [139]TV[179]60[176]TV[177]70[167][153]"PROGRAM CANNOT GIVE YOU YOUR IDEAL MASS!":[137]140
101 [129] W [178] 1 [164] 11: [143]  THIS IS FOR FEMALES ONLY
110 L [178] 1
120 [139] W$(W,L)[178]H$ [167] [153]:[153] "YOUR IDEAL MASS=";W$(W,F [170] 1);:[137] 131
130 [130]
131 SS[178][197]([202](W$(W,F[170]1),5))
132 [139] SS[179]PW [167] [153]"---YOU ARE";[181](((PW[171]SS)[172]100[173]SS)[172]10[170].5)[173]10;
133 [139] SS[179]PW [167] [153]"% ABOVE YOUR MAXIMUM IDEAL MASS.";
134 GG [178]  [181] (((PW [171] SS) [172] 100 [173] SS) [172] 10 [170] .5) [173] 10
135 [139] GG [177] 10 [175] GG [179] 18 [167]  [153] "(YOU ARE CONSIDERED OVERWEIGHT)!"
136 [153]
137 [139] F[179][178]1 [167] [153]"BECAUSE YOUR FRAME IS 'SMALL', ADDITIONAL INFORMATION";
138 [139] F[179][178]1 [167] [153]"ON BODY WATER, ETC. DOES NOT APPLY TO YOU!": [137] 180
139 [143] IN 140 & 240, H IS HEIGHT IN M & WT MASS IN KG OF FEMALES AND MALES
140 H [178]  [197] ( [202] (H$,1,1)) [172] 12 [170]  [197] ( [202] (H$,3))
141 H [178] H [172] .0254:WT [178] WT [172] .45359
143 [143] IN 145 & 245,Q IS QUETELET'S INDEX FOR FEMALES AND MALES RESPECTIVELY
144 [143] USED TO DETERMINE BODY FAT AND WHETHER A PERSON IS OBESE
145 QI [178] WT [173] (H [172] H)
148 [143] LINES 150-160 250-260 FIND IF OBESITY EXISTS FOR FEMALES AND MALES
150 [139] F[178]2[175] QI[177]27.0 [167] [153]"YOU ARE ALSO OVER THE CRITICAL OBESITY INDEX";
151 [139] F[178]2[175] QI[177]27.0 [167] [153]"---START DIETING!": [137] 165
155 [139] F[178]3 [175] QI[177]29.5[167][153]"YOU ARE ALSO OVER THE CRITICAL OBESITY INDEX";
156 [139] F[178]3 [175] QI[177]29.5[167] [153]"---START DIETING!": [137] 165
160 [153]: [153]"YOU ARE UNDER THE CRITICAL OBESITY INDEX---CONGRATULATIONS!"
162 [143] LINES 165 AND 265 ALLOW DETERMINATION OF BODY FAT IN WOMEN AND MEN
163 [143]#'S 170 & 270 FIND BODY SURFACE AREAS FOR WOMEN & MEN, RESPECTIVELY
164 [143]#'S 175 & 275 ALLOW DETERMINATION OF BODY WATER
165 WF[178]1.48[172]QI[171]7: [153]: [153] "YOUR BODY FAT =";[181] (WF [172] 10 [170] .5) [173] 10"%"
170 BS[178](.007185[172]WT[174].425[172](H[172]100)[174].725):[153]
171 [153]"YOUR BODY SURFACE AREA IS ABOUT";[181](BS[172]100[170].5)[173]100;
172 [153]" SQUARE METRES"
175 WW [178] .183809 [172] WT [170] 34.4547 [172] H [171] 35.270121
177 [153]:[153]"YOUR TOTAL BODY WATER IS ABOUT";[181](WW[172]10[170].5)[173]10;" LITRES";
178 [153]"---OR";[181] ((WW [172] 1E02 [173] WT) [172] 10 [170] .5) [173] 10"% BODY MASS)"
180 [153] "-------------------------------------": [137] 1100
195 [153]:[153]"-----------":TV[178][197]([202](H$,1,1))[172]12[170][197]([202](H$,3))
196 [139] F[179][178]1[175]TV[179]64[167][153]:[153]"BECAUSE YOUR FRAME IS SMALL & YOUR HEIGHT";
197 [139]F[179][178]1[175]TV[179]64[167][153]"LESS THAN 5-4, I CAN'T TELL YOU ANYTHING!":[137]280
198 [139] F[179][178]1[175]TV[177]95[167][153]"SINCE YOUR FRAME IS SMALL & YOUR HEIGHT IS";
199 [139]F[179][178]1[175]TV[177]95[167][153]"MORE THAN 6-3, I CAN'T TELL YOU ANYTHING!":[137]280
200 [139] TV[179]64[176]TV[177]75[167][153]:[153]"BECAUSE OF HEIGHT LIMITS, I CANNOT GIVE ";
201 [139] TV[179]64[176]TV[177]75[167] [153]"YOU YOUR IDEAL MASS!":[137] 240
202 [129] W [178] 12 [164] 23: [143]  THIS IS FOR MALES ONLY
210 L [178] 1
220 [139] W$(W,L)[178]H$ [167] [153]:[153]"YOUR IDEAL MASS = ";W$(W,F[170]1);:[137] 231
230 [130]
231 SS[178][197]([202](W$(W,F[170]1),5))
232 [139] SS[179]PW [167][153]"---YOU ARE";[181](((PW[171]SS)[172]100[173]SS)[172]10[170].5)[173]10;
233 [139] SS[179]PW [167][153]"% ABOVE YOUR MAXIMUM IDEAL MASS ";
234 GG[178][181](((PW[171]SS)[172]100[173]SS)[172]10[170].5)[173]10
235 [139] GG[177]10 [175] GG[179]18 [167] [153]"(YOU ARE CONSIDERED OVERWEIGHT)!"
236 [153]
237 [139] F[179][178]1 [167] [153]:[153]"BECAUSE YOUR FRAME IS SMALL, ADDITIONAL ";
238 [139] F[179][178]1[167][153]"DETAILS ON BODY WATER, ETC DO NOT APPLY TO YOU!":[137] 280
240 H[178][197]([202](H$,1,1))[172]12[170][197]([202] (H$,3)):H [178] H [172] .0254:WT [178] WT [172] .45359
245 QI [178] WT [173] (H [172] H)
250 [139] F[178]2 [175] QI[177]27.5 [167] [153]:[153]"YOU ARE ALSO OVER THE CRITICAL ";
251 [139] F[178]2 [175] QI[177]27.5 [167] [153]"OBESITY INDEX---START DIETING!": [137] 265
255 [139] F[178]3 [175] QI[177]29.9 [167] [153]:[153]"YOU ARE ALSO OVER THE CRITICAL ";
256 [139] F[178]3 [175] QI[177]29.9 [167] [153]"OBESITY INDEX---START DIETING!":[137]265
260 [153]: [153]"YOU ARE UNDER THE CRITICAL OBESITY INDEX---CONGRATULATIONS!"
265 MF[178]1.281[172]QI[171]10.13: [153]: [153]"YOUR BODY FAT =";[181](MF[172]10[170].5)[173]10"%"
270 BS [178] (.007185 [172] WT [174] .425 [172] (H [172] 100) [174] .725): [153]
271 [153]"YOUR BODY SURFACE AREA IS ABOUT";[181](BS[172]100[170].5)[173]100;" SQUARE METRES"
275 MW [178] .296785 [172] WT [170] 19.4786 [172] H [171] 14.012934
277 [153]:[153]"YOUR TOTAL BODY WATER IS ABOUT";[181](MW[172]10[170].5)[173]10;
278 [153]" LITRES (ABOUT";[181]((MW[172]1E02[173]WT)[172]10[170].5)[173]10;"% BODY MASS)"
280 [153] "-------------------------------------": [137] 1100
490 [143]  LINE #'S 500-600 CONTAIN HEIGHT MASS DATA FOR FEMALES ONLY
495 [143]  WHILE #'S 750-860 CONTAIN HEIGHT MASS DATA FOR MALES ONLY
500 [131]  "5-0", "99-107","104-116","112-128"
510 [131]  "5-1","102-110","107-119","115-131"
520 [131]  "5-2","105-113","110-123","118-135"
530 [131]  "5-3","108-116","113-127","122-139"
540 [131]  "5-4","111-120","117-132","126-143"
550 [131]  "5-5","115-124","121-136","130-147"
560 [131]  "5-6","119-128","125-140","134-151"
570 [131]  "5-7","123-132","129-144","138-155"
580 [131]  "5-8","127-137","133-148","142-160"
590 [131]  "5-9","131-141","137-152","146-165"
600 [131]  "5-10","135-145","141-156","150-170"
750 [131]  "5-4","118-126","124-136","132-149"
760 [131]  "5-5","121-130","127-140","135-153"
770 [131]  "5-6","125-134","131-144","139-158"
780 [131]  "5-7","129-138","135-149","144-163"
790 [131]  "5-8","133-142","139-153","148-167"
800 [131]  "5-9","137-147","143-157","152-171"
810 [131]  "5-10","141-151","147-162","156-176"
820 [131]  "5-11","145-155","151-167","161-181"
830 [131]  "6-0","149-159","155-172","165-186"
840 [131]  "6-1","153-164","159-177","170-191"
850 [131]  "6-2","157-168","164-182","175-196"
860 [131]  "6-3","161-172","169-187","179-187"
1000 [131]  ZERO
1100 [133] "DO YOU WANT ANOTHER EVALUATION (Y/N)? ";EV$
1110 [139] EV$ [178] "Y" [167]  [137] 80
1120 [128]
1130 [143] PROGRAM ADAPTED FOR COMMODORE MACHINES BY PETER SPENCER APRIL 1983
1140 [143] STILL NEEDS CONVERSION TO CENTIMETRES FOR HEIGHT
1150 [143] AND KILOGRAMS FOR MASS, ALTHOUGH SOME INTERNAL VARIABLES ALREADY
1160 [143] USE THESE.